# script creates chartSeries png plot of all symbols in db

divPayers <- getSymbolNames.wikifolio.DividendPayer()
# divPayers <- getSymbolNames.wikifolio()

for (i in 1:nrow(divPayers)) {
  TS <- getSymbols(divPayers[i,"symbol"], src="wikifolio", auto.assign=FALSE, adjust="split")  
  chartSeries(TS, name=divPayers[i,"symbol"])
  dev.copy(png,paste(divPayers[i,"symbol"], ".png", sep=""))
  dev.off()
}
